home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_14_(11-1984).d64 / hires loader (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  455b  |  18 lines
  1. 1 V=13*4096:PRINT"[147]"
  2. 2 SC=1024:CL=55296
  3. 5 M=5
  4. 10 IF F GOTO 21
  5. 11 POKEV+17,27+32:POKEV+24,16+8
  6. 12 POKE53265,PEEK(53265)OR32:POKE53270,PEEK(53270)OR16
  7. 15 DIMN$(64)
  8. 20 FORI=1TOM:READN$(I):NEXT
  9. 21 F=F+1:IF F>MTHENSYS42585
  10. 22 FORP=1TO5
  11. 23 GETA$:IFA$<>""THEN P=5:GOTO 30
  12. 25 L2=RND(1)*16:H2=RND(1)*16:IFL2=H2 THEN 25
  13. 26 S=RND(1)*16:L=RND(1)*16:H=RND(1)*16:IFL=H THEN 26
  14. 27 A2=H2+128+L2:A=H+128+L:POKE53281,S
  15. 28 FORI=0TO999:POKEI+SC,A:POKEI+CL,A2:NEXTI:FORTT=1TO2500:NEXTTT:NEXT
  16. 30 LOADN$(F),8,1
  17. 1000 DATA+MAN,+PATTERN,+SATELITE,+SNAIL,+CAVE MAN
  18.